home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0361 / moonlist.frm < prev    next >
Text File  |  1997-03-31  |  3KB  |  97 lines
  1. VERSION 2.00
  2. Begin Form MoonList 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Moon Phases"
  5.    ControlBox      =   0   'False
  6.    Height          =   2070
  7.    Left            =   3135
  8.    LinkTopic       =   "Form2"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   1635
  12.    ScaleWidth      =   4380
  13.    Top             =   2820
  14.    Width           =   4530
  15.    Begin CommandButton Command1 
  16.       Caption         =   "OK"
  17.       Default         =   -1  'True
  18.       Height          =   330
  19.       Left            =   1590
  20.       TabIndex        =   0
  21.       Top             =   1020
  22.       Width           =   1170
  23.    End
  24.    Begin XListBox XList1 
  25.       Height          =   1005
  26.       ItemDefHeight   =   100
  27.       ItemInvert      =   0   'False
  28.       Left            =   0
  29.       Top             =   0
  30.       Width           =   4365
  31.    End
  32. End
  33. Option Explicit
  34. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  35.  
  36. Sub Command1_Click ()
  37. Unload Me
  38. End Sub
  39.  
  40. Sub Form_Load ()
  41. Dim OurDate As Variant
  42. Dim Yr As Integer
  43. Dim I As Integer
  44. Dim T As Long
  45. Dim Sel As Integer
  46.  
  47. If gSettingsVisible Then
  48.    MoonList.Left = Settings.Left + (Settings.Width / 2) - (MoonList.Width / 2)
  49.    MoonList.Top = Settings.Top + (Settings.Height / 2) - (MoonList.Height / 2)
  50. Else
  51.    MoonList.Left = Screen.Width / 2 - (MoonList.Width / 2)
  52.    MoonList.Top = Screen.Height / 2 - (MoonList.Height / 2)
  53. End If
  54.  
  55. Screen.MousePointer = 11
  56.    OurDate = Date
  57.    Yr = Year(OurDate)
  58.    gMoons = 0
  59.    For I% = 1 To 12
  60.    Call CalcMoonPhases(Yr, I%, 1, 0, True)
  61.    Next I%
  62. Xlist1.ItemDefHeight = AlltheTime.MoonPic.Height
  63. For I = 1 To gMoons
  64. Xlist1.AddItem gMoonList$(I) + " - " + MoonDescArr$(gMoonSubs(I) - 35)
  65. Xlist1.ItemImage(I - 1) = AlltheTime.MoonSun.GraphicCell(gMoonSubs(I))
  66. 'Xlist1.ItemBackColor(I - 1) = Backcolor
  67. 'Xlist1.FontBold(I - 1) = False
  68. If DateValue(gMoonList$(I)) <= DateValue(SavedDat$) Then
  69.    Sel = I - 1
  70.  
  71.    'Xlist1.ListIndex = I
  72. End If
  73. Next I
  74. 'Show
  75. T& = SendMessage(Xlist1.hWnd, LB_SETCURSEL, Sel, 0&)
  76. T& = SendMessage(Xlist1.hWnd, LB_SETTOPINDEX, Sel, 0&)
  77. Screen.MousePointer = 0
  78. End Sub
  79.  
  80. Sub Form_Resize ()
  81. Dim Items As Integer
  82. If Height < Command1.Height * 6.4 Then Height = Command1.Height * 6.4
  83. If Width < Command1.Width * 2 Then Width = Command1.Width * 2
  84. Xlist1.Width = ScaleWidth
  85. Command1.Left = (ScaleWidth - Command1.Width) / 2
  86. Command1.Top = (ScaleHeight - Command1.Height * 1.5)
  87. Xlist1.Height = Command1.Top - Command1.Height / 2
  88. Items = Xlist1.Height \ Xlist1.ItemDefHeight
  89. Xlist1.Height = Items * Xlist1.ItemDefHeight + 30
  90. 'Command1.Top = (ScaleHeight - Command1.Height * 1.5)
  91. End Sub
  92.  
  93. Sub XList1_Click ()
  94.     '
  95. End Sub
  96.  
  97.